home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / cw15 / tpw15.z / BUILDEXP.TPW < prev    next >
Text File  |  1995-08-25  |  5KB  |  163 lines
  1. #GROUP(%ConstructExportFile)
  2. #MESSAGE('Generating Module:    ' & %Application & '.EXP', 1) #! Post generation message
  3. #MESSAGE('Generating Export File', 2) #! Post generation message
  4. #MESSAGE('',3)
  5. #SET(%ExportFile,%Application & '.exp')
  6. #CREATE(%BuildFile)
  7. #EMBED(%AfterCreatingExportFile,'Creating the export file')
  8. #IF(%Target32)
  9. NAME %Application GUI
  10. #ELSE
  11.   #IF(%ProgramExtension='DLL')
  12. LIBRARY %Application
  13.   #ELSE
  14. NAME %Application WINDOWAPI
  15.   #ENDIF
  16.  
  17. CODE MOVEABLE DISCARDABLE PRELOAD
  18. DATA MOVEABLE SINGLE PRELOAD
  19.  
  20. HEAPSIZE  1024
  21. STACKSIZE 32678
  22.  
  23. SEGMENTS
  24.      ENTERCODE MOVEABLE DISCARDABLE PRELOAD
  25.  
  26. EXETYPE WINDOWS
  27.  
  28. #ENDIF
  29. #DECLARE(%ExpLineNumber)
  30. #IF(%ProgramExtension='DLL')
  31. #EMBED(%BeforeExportList,'Before the export list')
  32. EXPORTS
  33.   #EMBED(%BeginningExports,'Top of export list')
  34.   #FOR(%Procedure)
  35.     #IF(%ProcedureExported)
  36.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  37.   %Procedure @%ExpLineNumber
  38.     #ENDIF
  39.   #ENDFOR
  40.   #FOR(%File)
  41.     #IF(%DefaultGenerate)
  42.     #ELSIF(%OverrideGenerate)
  43.     #ELSE
  44.       #FIX(%UsedFile,%File)
  45.       #IF(NOT %UsedFile)
  46.         #CYCLE
  47.       #ENDIF
  48.     #ENDIF
  49.     #IF(%OverrideExternal='Not External')
  50.       #IF(%OverrideExport)
  51.         #SET(%ExpLineNumber,%ExpLineNumber + 1)
  52.   $%File @%ExpLineNumber
  53.         #FOR(%Key)
  54.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  55.   %File$%Key @%ExpLineNumber
  56.         #ENDFOR
  57.         #FOR(%Field),WHERE(%FieldType = 'MEMO')
  58.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  59.   %File$%Field @%ExpLineNumber
  60.         #ENDFOR
  61.         #FOR(%Field),WHERE(%FieldType = 'BLOB')
  62.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  63.   %File$%Field @%ExpLineNumber
  64.         #ENDFOR
  65.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  66.   %File$%FilePrefix:RECORD @%ExpLineNumber
  67.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  68.   %File$TYPE$%FilePrefix:RECORD @%ExpLineNumber
  69.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  70.   $%File::Used @%ExpLineNumber
  71.       #ENDIF
  72.     #ELSIF((NOT %OverrideExternal) OR %OverrideExternal = 'Use Default')
  73.       #IF(%DefaultExport)
  74.         #SET(%ExpLineNumber,%ExpLineNumber + 1)
  75.   $%File @%ExpLineNumber
  76.         #FOR(%Key)
  77.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  78.   %File$%Key @%ExpLineNumber
  79.         #ENDFOR
  80.         #FOR(%Field),WHERE(%FieldType = 'MEMO')
  81.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  82.   %File$%Field @%ExpLineNumber
  83.         #ENDFOR
  84.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  85.   %File$%FilePrefix:RECORD @%ExpLineNumber
  86.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  87.   %File$TYPE$%FilePrefix:RECORD @%ExpLineNumber
  88.           #SET(%ExpLineNumber,%ExpLineNumber + 1)
  89.   $%File::Used @%ExpLineNumber
  90.       #ENDIF
  91.     #ENDIF
  92.   #ENDFOR
  93.   #IF(NOT %GlobalExternal)
  94.     #SET(%ExpLineNumber,%ExpLineNumber + 1)
  95.   $GlobalRequest @%ExpLineNumber
  96.     #SET(%ExpLineNumber,%ExpLineNumber + 1)
  97.   $GlobalResponse @%ExpLineNumber
  98.     #FOR(%GlobalData),WHERE(%GlobalData)
  99.       #IF(NOT EXTRACT(%GlobalDataStatement,'EXTERNAL'))
  100.         #SET(%ExpLineNumber,%ExpLineNumber + 1)
  101.   $%GlobalData @%ExpLineNumber
  102.       #ENDIF
  103.     #ENDFOR
  104.   #ENDIF
  105. #ENDIF
  106. #IF(%ApplicationDebug)
  107.   #IF(%ApplicationLocalLibrary)
  108.     #IF(NOT %Target32)
  109.       #IF(%ProgramExtension<>'DLL')
  110. #EMBED(%BeforeExportList,'Before the export list')
  111. EXPORTS
  112.   #EMBED(%BeginningExports,'Top of export list')
  113.       #ENDIF
  114.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  115.   CLA$ACCEPTED @%ExpLineNumber
  116.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  117.   CLA$SELECTED @%ExpLineNumber
  118.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  119.   CLA$FIELD @%ExpLineNumber
  120.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  121.   CLA$FIRSTFIELD @%ExpLineNumber
  122.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  123.   CLA$LASTFIELD @%ExpLineNumber
  124.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  125.   CLA$EVENT @%ExpLineNumber
  126.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  127.   CLA$ERRCODE @%ExpLineNumber
  128.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  129.   CLA$KEYCODE @%ExpLineNumber
  130.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  131.   CLA$MOUSEX @%ExpLineNumber
  132.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  133.   CLA$MOUSEY @%ExpLineNumber
  134.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  135.   CLA$FOCUS @%ExpLineNumber
  136.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  137.   CLA$THREAD @%ExpLineNumber
  138.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  139.   WSL$LIBRARYALIVE @%ExpLineNumber
  140.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  141.   CLA$FIELDNAME @%ExpLineNumber
  142.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  143.   CLA$BLOADFLOAT4 @%ExpLineNumber
  144.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  145.   CLA$BLOADFLOAT @%ExpLineNumber
  146.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  147.   CLA$LOADDEC @%ExpLineNumber
  148.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  149.   CLA$PLOADDEC @%ExpLineNumber
  150.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  151.   CLA$PUSHUFO @%ExpLineNumber
  152.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  153.   CLA$POPCSTRING @%ExpLineNumber
  154.       #SET(%ExpLineNumber,%ExpLineNumber + 1)
  155.   WSL$DEBUGHOOK @%ExpLineNumber
  156.     #ENDIF
  157.   #ENDIF
  158. #ENDIF
  159. #EMBED(%DLLExportList,'Inside the export list')
  160. #EMBED(%BeforeClosingExports,'Closing the export file')
  161. #CLOSE(%BuildFile)
  162. #REPLACE(%ExportFile,%BuildFile)
  163.